home *** CD-ROM | disk | FTP | other *** search
/ Softdisk Supreme / Softdisk Supreme.iso / pc / DSK Files / 0-49 / SD024c.dsk / PAL.94062.LEPISTO.AUG.83.A.bas < prev    next >
BASIC Source File  |  2003-06-12  |  4KB  |  72 lines
  1. 5  GOSUB 3000: CALL 768
  2. 10  TEXT : HOME : PRINT 
  3. 15  PRINT "IN RESPONSE TO BOB CURTIN ABOUT THE": PRINT 
  4. 20  PRINT "USE OF DOUBLE-TAKE FROM BEAGLE BROS.:": PRINT 
  5. 25  PRINT "   FIRST, BE AWARE THAT SOME COPIES OF": PRINT 
  6. 30  PRINT "DOUBLE-TAKE MIGHT NOT WORK WITH GPLE.": PRINT 
  7. 35  PRINT "I RECEIVED A COPY WHICH DID NOT WORK": PRINT 
  8. 40  PRINT "WITH MY GPLE AND I ALERTED MARK": PRINT 
  9. 45  PRINT "SIMONSEN TO THE PROBLEM.  HE CLEARED": PRINT 
  10. 50  PRINT "IT UP AND IT WORKS FINE.  SO BE AWARE": PRINT 
  11. 55  PRINT "THAT THERE COULD BE PROBLEMS.  BEAGLE": PRINT 
  12. 57  GOSUB 2000
  13. 60  PRINT "BROS. WERE VERY KIND AND HELPFUL AND": PRINT 
  14. 65  PRINT "REPLACED MY DISK FOR NO CHARGE.": PRINT 
  15. 70  PRINT "   ANOTHER POINT ABOUT DOUBLE-TAKE:": PRINT 
  16. 75  PRINT "IF YOU HAVE ONE OF THE OLDER APPLES": PRINT 
  17. 80  PRINT "WITH INTEGER BASIC ON THE MOTHERBOARD": PRINT 
  18. 85  PRINT "AND YOU USE APPLESOFT ON A LANGUAGE": PRINT 
  19. 90  PRINT "CARD AND PUT GPLE ON THE CARD WITH": PRINT 
  20. 95  PRINT "APPLESOFT, YOU WILL HAVE TO LOAD THE": PRINT 
  21. 100  PRINT "DOUBLE-TAKE INTO MEMORY BETWEEN DOS": PRINT 
  22. 102  GOSUB 2000
  23. 105  PRINT "AND ITS BUFFERS LEAVING ABOUT 27.5K OF": PRINT 
  24. 110  PRINT "MEMORY LEFT.  IT IS POSSIBLE TO RE-": PRINT 
  25. 115  PRINT "CONFIGURE DOUBLE-TAKE TO REMOVE CERTAIN": PRINT 
  26. 120  PRINT "MODULES AND FUNCTIONS.  AGAIN, BE AWARE": PRINT 
  27. 125  PRINT "THAT THIS MEMORY USAGE IS THERE FOR": PRINT 
  28. 130  PRINT "THOSE WHO USE APPLESOFT ON A LANGUAGE": PRINT 
  29. 135  PRINT "CARD.  I DON'T MEAN TO DUMP ON DOUBLE-": PRINT 
  30. 140  PRINT "TAKE.  IT IS AN EXCELLENT PROGRAMMER'S": PRINT 
  31. 145  PRINT "TOOL AND I RECOMMEND IT HIGHLY.": PRINT 
  32. 147  GOSUB 2000
  33. 155  PRINT "   I WOULD LIKE TO MAKE AN APPEAL TO": PRINT 
  34. 160  PRINT "ALL OF YOU SOFTPALS WHO CONTRIBUTE": PRINT 
  35. 165  PRINT "THESE PAL MESSAGES.  I USUALLY BOOT": PRINT 
  36. 170  PRINT "APPLESOFT ON DRIVE 1 (I HAVE 2 DRIVES)": PRINT 
  37. 175  PRINT "AND LOOK AT SOFTDISK ON DRIVE 2.": PRINT 
  38. 180  PRINT "RECENTLY, I HAVE RUN INTO THE ANNOYANCE": PRINT 
  39. 185  PRINT "OF A SOFTPAL PROGRAM EXECUTING THE": PRINT 
  40. 190  PRINT "PAL.MENU IN DRIVE 1 (THIS IS DONE BY": PRINT 
  41. 195  PRINT "THE FOLLOWING: " CHR$(34)"<CTRL-F>D<CTRL-F>RUN PAL.MENU,D1" CHR$(34)").": PRINT 
  42. 197  GOSUB 2000
  43. 200  PRINT "IT IS THAT " CHR$(34)"D1" CHR$(34)" WHICH HURTS.  IT IS A": PRINT 
  44. 205  PRINT "SIMPLE MATTER TO LEAVE IT OFF.  IT WILL": PRINT 
  45. 210  PRINT "NOT BOTHER ANYONE WITH ONE DRIVE AND": PRINT 
  46. 215  PRINT "WILL BE APPRECIATED BY US DOUBLE-": PRINT 
  47. 220  PRINT "DRIVE'ERS.": PRINT 
  48. 225  PRINT "   THANK YOU FOR YOUR CONSIDERATION.": PRINT 
  49. 1000  GOSUB 2000
  50. 1005  PRINT : PRINT "I AM:": PRINT 
  51. 1010  PRINT "   STEPHEN P. LEPISTO": PRINT 
  52. 1015  PRINT "   1709 JEFFERSON AVE.": PRINT 
  53. 1020  PRINT "   REDWOOD CITY, CA. 94062": PRINT 
  54. 1025  GOSUB 2000
  55. 1030  PRINT : PRINT  CHR$(4);"RUNPAL.MENU"
  56. 1035  END 
  57. 2000  VTAB 20: PRINT "<CTRL-I>" SPC( 40)"<CTRL-I>";
  58. 2002  PRINT "<CTRL-I> <CTRL-I>   PRESS THE SPACE BAR TO CONTINUE    <CTRL-I> ";: PRINT " <CTRL-I>        PRESS 'ESC' TO EXIT           <CTRL-I> <CTRL-I>";:
  59. 2003  PRINT "<CTRL-I>" SPC( 40);"<CTRL-I>";
  60. 2005 S(0) = 1744:S(1) = 1872:LN = 39
  61. 2010 T1 =  INT( RND(1) *40):T2 =  INT( RND(1) *2)
  62. 2015 T =  PEEK(S(T2) +T1): IF T <161  THEN 2010
  63. 2020  IF  PEEK( -16384) >127  THEN 2030
  64. 2025  POKE S(T2) +T1,T -128 *(T <192) -192 *(T > = 192): FOR I = 1 TO 50: NEXT : POKE S(T2) +T1,T: GOTO 2010
  65. 2030 X =  PEEK( -16384): POKE  -16368,0
  66. 2035  IF X = 155  THEN  POP : GOTO 1030
  67. 2040  HOME : PRINT : RETURN 
  68. 3000  FOR KK = 768 TO 806: READ PP: POKE KK,PP: NEXT : RETURN 
  69. 3002  DATA 169,11,133,54,169,3,133,55,76,234,3
  70. 3004  DATA 201,137,208,8,169,192,69,50,133,50,208
  71. 3006  DATA 15,201,134,208,8,169,128,69,50,133,50
  72. 3008  DATA 208,3,76,240,253,96